Aminet 6/Aminet 6 - June 1995.iso/Aminet/dev/obero/Interfaces3_6.lha/compile_all

Text File | 1994-12-12 | 9.9 KB | 416 lines

; Installiert die neuen Interfaces und compiliert alles neu
; Installs the new interfaces and recompiles everything
;
; © 1994 by Thomas Wagner [tom];  E-Mail: [e-mail]
;
; Permission granted to include to Interfaces edited by hartmut Goebel
; and the Amiga Oberon Distribution.
;
; $VER: Compile_All_2 2.1 (12.12.94)
;
; KEINE HAFTUNG
;
; Die Tabulatorlänge sollte auf 4 gesetzt werden, um diesen Text zu lesen/editieren
; set tabsize to 4 to read/edit this text

;
; Die folgenden Angaben muß man an die Distribution anpassen:
; Adapt the following lines to your distribution
;

;(set interfaces-format "archive")        ; Interfaces liegen als Archiv vor
;(set archivename "Interfaces3_6.lha")

(set interfaces-format "dir")             ; Interfaces liegen entpackt in einem Directory
(set intdirname "Interfaces")
(set objdirname "obj")

;
; Strings
;

(if (= @language "deutsch")
(
(if (= interfaces-format "archive")
    (set #start
        (cat "\n© 1994 by Thomas Wagner [tom]\n"
             "*********************************\n\n"
             "Mit diesem Skript kann man die Interfaces Version %ld.%ld Oberon %ld.%ld "
             "installieren und alle System- und Objekt-Files von "
             "Amiga Oberon neu erzeugen.\n\n"
             "Da das Archiv entpackt wird, benötigt es LHA im Suchpfad.\n\n"
             "Wenn der Diskettenname ein '#' enthält, muß die Schublade erst "
             "z.B. ins RAM: kopiert werden, da LHA das nicht verkraftet."
        )
    )
    (set #start
        (cat "\n© 1994 by Thomas Wagner [tom]\n"
             "*********************************\n\n"
             "Mit diesem Skript kann man die Interfaces Version %ld.%ld Oberon %ld.%ld "
             "installieren und alle System- und Objekt-Files von "
             "Amiga Oberon neu erzeugen.\n\n"
        )
    )
)

(debug "DIESES SKRIPT NICHT VOM CLI STARTEN, SONST WIRD ES FEHLSCHLAGEN!")

(set #copy-interfaces
    (cat "\n\nSoll ich die Interfaces kopieren?\n\n"
        "Wenn sich die Interfaces auf einem read-only Medium "
        "befinden, müssen Sie beim Compilieren sonst viele Requester "
        "'Laufwerk Bla: ist schreibgeschützt'\nabbrechen. "
        "AmigaOberon versucht nämlich, (nicht-existierende) "
        "alte Fehlerdateien zu löschen."
    )
)

(set #select-comp
    (cat "Jetzt müssen noch die Symbol- und Objekt-Files erstellt werden. "
         "Bitte wählen Sie, welche Objekt-Files ich erstellen soll."
    )
)

(set #compilation
    (cat "Ich compiliere jetzt mit den von Ihnen gewünschten Parametern.\n\n"
         "Bitte haben Sie etwas Geduld. Dieser Teil dauert etwas länger...\n\n"
         "Ich erzeuge gerade die *.obj%s-Files."
    )
)

(set #where-to-interfaces "In welches Verzeichnis soll ich die Interfaces entpacken/kopieren?")
(set #where-are-modules "Wo sind die Module?")
(set #where-are-syms
    (cat "In welchem gemeinsamen (Ober-)Verzeichnis befindet sich sowohl "
         "das Verzeichnis \"sym\" also auch \"obj\", bzw. wo sollen diese "
         "angelegt werden?"
    )
)

(set #version-warning
    (cat "Warnung:\n\nDie bereits installierte Version ist gleich oder höher "
         "als diese Version.\n\nAlt: %ld.%ld\nNeu: %ld.%ld\n\n"
         "Soll ich wirklich weitermachen?"
    )
)

(set #where-is-list "Welche Compilerversion verwenden sie?")

(set #comp-old "niedriger als 3.10")
(set #comp-new "3.10 oder höher")

(set #where-is-oberon "In welchem Verzeichnis ist der Oberon Compiler?")

(set #extracting "Entpacke Daten ...")
(set #copying "Kopiere Interfaces ...")

))

(if (= @language "english")
(
(if (= interfaces-format "archive")
    (set #start
        (cat "\n© 1994 by Thomas Wagner [tom]\n"
             "*********************************\n\n"
             "With this script you can install the interfaces version "
             "%ld.%ld Oberon %ld.%ld and recreate all system and objekt files of "
             "Amiga Oberon.\n\n"
             "Thus the archive will be unpacked, it needs LHA in the search path.\n\n"
             "If the volume name contains '#' the drawer must be copied to e.g. "
             "RAM: first, because LHA can't handle this."
        )
    )
    (set #start
        (cat "\n© 1994 by Thomas Wagner [tom]\n"
             "*********************************\n\n"
             "With this script you can install the interfaces version "
             "%ld.%ld Oberon %ld.%ld and recreate all system and objekt files of "
             "Amiga Oberon.\n\n"
        )
    )
)

(debug "DO NOT RUN THIS SCRIPT FROM CLI OR IT WILL PROBABLY FAIL!")

(set #copy-interfaces
    (cat "\n\nShould I copy the interfaces?\n\n"
        "If the Interface sources are on a read-only media "
        "you else have to cancel a lot requesters\n"
        "'Volume Bla: is write protected' when compiling, "
        "since AmigaOberon tries to delete (non-existent) "
        "old error files."
    )
)

(set #select-comp
    (cat "Now the symbol and object files have to be created. "
         "Please select which type of object files should be created."
    )
)

(set #compilation
    (cat "I compile with you selected parameters.\n\n"
         "Please be patient. This part will take some time...\n\n"
         "I now create the *.obj%s files."
    )
)

(set #where-to-interfaces "Into which dir I should extract/copy the interfaces?")
(set #where-are-modules "Where are the modules?")
(set #where-are-syms
    (cat "In which common (main-)directory are your \"sym\" AND \"obj\" "
         "drawer, or in which directory should they be created?"
    )
)

(set #version-warning
    (cat "Warning:\n\nYour installed version ist equal or higher "
         "than this version.\n\nold: %ld.%ld\nnew: %ld.%ld\n\n"
         "Should I really proceed?"
    )
)

(set #where-is-list "Which compiler version do you use?")

(set #comp-old "lower than 3.10")
(set #comp-new "3.10 or higher")

(set #where-is-oberon "In which directory is your compiler?")

(set #extracting "Extracting from archive ...")
(set #copying "Copy interfaces ...")

))

;--------------------------------------------------------
; compile modules and interfaces

(set new-vernum (getversion (tackon (pathonly @icon) "interfaces.version")))
(set new-ver (/ new-vernum 65536))
(set new-rev (- new-vernum (* new-ver 65536) ) )

(set incl-vernum (getversion (tackon (pathonly @icon) "includes.version")))
(set incl-ver (/ incl-vernum 65536))
(set incl-rev (- incl-vernum (* incl-ver 65536) ) )

(message (#start incl-ver incl-rev new-ver new-rev))

(welcome)

(set @default-dest "OBERON:")

(if (exists "oberon:interfaces.version")
    (
        (set old-vernum (getversion "oberon:interfaces.version"))
        (set old-ver (/ old-vernum 65536))
        (set old-rev (- old-vernum (* old-ver 65536) ) )
        (if (>= old-vernum new-vernum)
            (if (NOT (askbool
                    (prompt (#version-warning old-ver old-rev new-ver new-rev))
                    (help @askbool-help)
                    (choices "Proceed" "Abort")
                ))
                (exit (quiet))
            )
        )
    )
)

(set obfull
    (askdir
        (prompt #where-is-oberon)
        (help @askfile-help)
        (default @default-dest)
;        (newpath)
    )
)

(set comp
    (askoptions
        (prompt #select-comp)
        (help @askoptions-help)
        (choices " <    > (*.obj)"
                 " <-md > (*.objs)"
                 " <-a  > (*.obja)"
                 " <-mda> (*.objsa)"
        )
        (default 15)
    )
)

(set obfull (tackon obfull "Oberon"))

(set copy-interfaces
    (askbool
        (prompt #copy-interfaces)
        (help @askbool-help)
    )
)

(if copy-interfaces
    (set interfaces-dir
        (askdir
            (prompt #where-to-interfaces)
            (help @askdir-help)
            (default (tackon @default-dest "Interfaces"))
        )
    )
)

(set modules-dir
    (askdir
        (prompt #where-are-modules)
        (help @askdir-help)
        (default (tackon @default-dest "Module"))
    )
)

(set sym-dir
    (askdir
        (prompt #where-are-syms)
        (help @askdir-help)
        (default @default-dest)
    )
)

(set list (pathonly @icon))

(if
    (askbool
        (prompt #where-is-list)
        (help @askbool-help)
        (choices (#comp-old) (#comp-new))
    )
    (set list (tackon list "recomp.lst"))
    (set list (tackon list "recomp3_10.lst"))
)

(if (NOT (exists (tackon sym-dir "sym")))
    (makedir (tackon sym-dir "sym") (infos))
)

(if (NOT (exists (tackon sym-dir "obj")))
    (makedir (tackon sym-dir "obj") (infos))
)

(onerror (makeassign "objdir") (makeassign "AO_INSTALL_INTERFACES") (makeassign "AO_INSTALL_MODULES"))

(makeassign "AO_INSTALL_MODULES" modules-dir)

(if copy-interfaces
    (
        (makeassign "AO_INSTALL_INTERFACES" interfaces-dir)
        (makeassign "objdir" (tackon sym-dir "obj"))
    )
    (
        (makeassign "AO_INSTALL_INTERFACES" (tackon (pathonly @icon) intdirname))
        (makeassign "objdir" (tackon (pathonly @icon) objdirname))
    )
)

(if (= interfaces-format "archive")
    (
        (working #extracting)
        (run (cat "lha -x0 e " (tackon (pathonly @icon) archivename) " objdir: *.o"))
        (run (cat "lha -x0 e " (tackon (pathonly @icon) archivename) " AO_INSTALL_INTERFACES: *.mod"))
    )
    (if copy-interfaces
    (
            (copyfiles
                (prompt #copying)
                (source (tackon (pathonly @icon) intdirname))
                (dest "AO_INSTALL_INTERFACES:")
                (optional "askuser")
                (all)
            )
            (copyfiles
                (prompt #copying)
                (source (tackon (pathonly @icon) objdirname))
                (dest "objdir:")
                (optional "askuser")
                (all)
            )
    )
    )
)

(makeassign "objdir")

(set intro (cat "cd " sym-dir "\nstack 30000\n"))

(if (IN comp 0)
    (
        (working (#compilation ""))
        (textfile
            (prompt "")
            (help @textfile-help)
            (dest "T:OBINST")
            (append intro)
            (append (cat obfull " >CON: <" list "\n"))
        )
        (execute "T:OBINST")
        (run "delete T:OBINST")
    )
)

(if (IN comp 1)
    (
        (working (#compilation "s"))
        (textfile
            (prompt "")
            (help @textfile-help)
            (dest "T:OBINST")
            (append intro)
            (append (cat obfull " -md >CON: <" list "\n"))
        )
        (execute "T:OBINST")
        (run "delete T:OBINST")
    )
)

(if (IN comp 2)
    (
        (working (#compilation "a"))
        (textfile
            (prompt "")
            (help @textfile-help)
            (dest "T:OBINST")
            (append intro)
            (append (cat obfull " -a >CON: <" list "\n"))
        )
        (execute "T:OBINST")
        (run "delete T:OBINST")
    )
)

(if (IN comp 3)
    (
        (working (#compilation "sa"))
        (textfile
            (prompt "")
            (help @textfile-help)
            (dest "T:OBINST")
            (append intro)
            (append (cat obfull " -mda >CON: <" list "\n"))
        )
        (execute "T:OBINST")
        (run "delete T:OBINST")
    )
)

(copyfiles
    (prompt #copying)
    (source (tackon (pathonly @icon) "interfaces.version"))
    (dest "oberon:")
)

(copyfiles
    (prompt #copying)
    (source (tackon (pathonly @icon) "includes.version"))
    (dest "oberon:")
)


(makeassign "AO_INSTALL_INTERFACES")
(makeassign "AO_INSTALL_MODULES")